home *** CD-ROM | disk | FTP | other *** search
/ Publication 5 / Publication_05_19xx_High-Tech_de_Side_A.d64 / uncrunched vers. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  86 lines
  1. 1 rem" publication    release-date : 31/03/96
  2. 2 [143]"
  3. 3 rem
  4. 4 rem uncrunched version
  5. 5 rem
  6. 6 sys57812("charset.demo*"),8,1:poke780,0:sys65493
  7. 7 l$(1)="abcdefghijklmnopqrstu":l$(2)="[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212]":l$(3)="[193][194][195][196][197][198][199][200]"
  8. 8 l$(3)=l$(3)+"[201][202][203][204][205][206][207][208][209][210][211][212]":l$(4)="!@#$%&'()*+,-./01234":dima(17),z$(26)
  9. 10 forg=1to15:reada(g):next:poke53281,0:poke53280,0:print"[147]"
  10. 11 data5,28,30,31,144,156,158,129,149,150,151,152,153,154,155:forq=1to280
  11. 12 g=int(rnd(1)*17)+1:printchr$(a(g))"  ";:next:forg=1to1000:next:forg=1to5
  12. 13 print"":next:poke53272,29
  13. 20 b$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] ":forg=20to1step-1:poke211,g:poke214,1
  14. 21 sys58732:printb$:poke211,39-g:poke214,1:sys58732:printb$:next:f(2)=6:f(1)=9
  15. 22 f(3)=11:f(4)=14:f(5)=12:f(6)=15:f(7)=8:f(8)=1:forg=1to8:poke646,f(g)
  16. 23 poke211,10:poke214,4:sys58732:printl$(1):printtab(10)"[145]"l$(2):printtab(10);
  17. 24 printl$(3):printtab(10)"[145]"l$(4):forq=1to50:nextq,g:forg=1to200:next
  18. 27 a$="[180][177][178][177] [162][174] [173][177][162][163][165][177][162][174][163] [185][187] [180][162][165][180]-[163][177][188][180] [179][162][163]h [180][162][174] [170][177][179] [167][177][165][176]-[172][177][167][185] [175][184][191][182][162][188][176][163][162][185][170] !"
  19. 28 forg=1to39:y$=y$+" ":next:y$=y$+a$+y$:a$="here is zeitgeist of high-tech wi"
  20. 29 a$=a$+"th his new mega-demo publication !":forg=1to39:x$=x$+" ":next
  21. 30 x$=x$+a$+x$:forg=1tolen(x$):poke211,0:poke214,22:sys58732
  22. 31 print""mid$(x$,g,39):poke211,0:poke214,23:sys58732:print"[154]"mid$(y$,g,39)
  23. 32 forq=1to50:nextq,g:forg=8to1step-1:poke646,f(g):poke211,10:poke214,4
  24. 33 sys58732:printl$(1):printtab(10)"[145]"l$(2):printtab(10)l$(3)
  25. 34 printtab(10)"[145]"l$(4):next:forg=1to1500:next
  26. 100 a$="zeitgeist of high-tech brought ya some scrollers !   ":forg=1to30
  27. 101 a1$=a1$+" ":next:a1$=a1$+a$+" ":a$="ain't colorful enough yet,do they ? bu"
  28. 102 a$=a$+"t never mind...":forg=1to30:a2$=a2$+"[160]":next:a2$=a2$+a$+" ":a$="v[157]"
  29. 103 a$=a$+"e[157]r[157]t[157]i[157]c[157]a[157]l[157] [157]i[157]s[157] [157]c[157]o[157]o[157]l[157] [157]![157] [157]i[157]s[157]n[157]'[157]t"
  30. 104 a$=a$+"[157] [157]i[157]t[157] [157]?[157]":forg=1to20:a3$=a3$+" [157]":next:a3$=a3$+a$+" [157]"
  31. 105 print"[147]":fora=1tolen(a1$):ifa/2=int(a/2)thengosub1000:goto111
  32. 106 poke211,9:poke214,6:sys58732:print"[144]"l$(1):printtab(9)l$(2)
  33. 107 printtab(9)l$(3):printtab(9)l$(4)
  34. 111 poke211,1:poke214,1:sys58732:print""mid$(a1$,a,38):poke211,1:poke214,23
  35. 112 sys58732:print""mid$(a2$,a,38):poke211,2:poke214,3:sys58732:print"[158]";
  36. 113 printmid$(a3$,a*3,57):poke211,39:poke214,3:sys58732:poke646,3
  37. 114 printmid$(a3$,a*3,57):next:a=17:b=11:c=0:poke646,9
  38. 200 poke211,24-a:poke214,b:sys58732:forg=1to22-c*2:print" ";:next:forg=bto22-c
  39. 201 poke211,12+a:poke214,g:sys58732:print" ":next:forg=a+12to24-astep-1
  40. 202 poke211,g:poke214,33-b:sys58732:print" ":next:forg=33-btobstep-1
  41. 203 poke211,24-a:poke214,g:sys58732:print" ":next:poke646,peek(646)+1:a=a-1
  42. 204 c=c+1:b=b+1:ifb<23then200
  43. 205 poke211,17:poke214,15:sys58732:print"[158]hai":printtab(17)"tek":forg=1to500
  44. 206 next:forg=1to12:forq=1to8:poke646,f(q):poke211,17:poke214,15:sys58732
  45. 207 print"hai":nextq:forq=1to8:poke646,f(q):poke211,17:poke214,18:sys58732
  46. 209 print"tek":nextq,g:b$="[158]"+b$+"[157]"+b$:forg=20to0step-1:poke211,g:poke214,0
  47. 210 sys58732:printb$:poke211,39-g:poke214,0:sys58732:printb$:next:print"[147]"
  48. 211 poke211,10:poke214,19:sys58732:printl$(1):printtab(10)l$(2):printtab(10);
  49. 212 printl$(3):printtab(10)l$(4):forg=1to999:next:forg=1to19:print:next
  50. 213 data "hh  hh iiii gggggg hh  hh"
  51. 214 data "hh  hh  ii  gggggg hh  hh"
  52. 215 data "hh  hh  ii  gg     hh  hh"
  53. 216 data "hhhhhh  ii  gg ggg hhhhhh"
  54. 217 data "hhhhhh  ii  gg  gg hhhhhh"
  55. 218 data "hh  hh  ii  gg  gg hh  hh"
  56. 219 data "hh  hh  ii  gggggg hh  hh"
  57. 220 data "hh  hh iiii gggggg hh  hh"
  58. 222 data "tttttt eeeeee cccccc hh  hh"
  59. 223 data "tttttt eeeeee cccccc hh  hh"
  60. 224 data "  tt   ee     cc     hh  hh"
  61. 225 data "  tt   ee     cc     hhhhhh"
  62. 226 data "  tt   eeee   cc     hhhhhh"
  63. 227 data "  tt   ee     cc     hh  hh"
  64. 228 data "  tt   eeeeee cccccc hh  hh"
  65. 229 data "  tt   eeeeee cccccc hh  hh":forg=1to8:reada$(g):next
  66. 230 forg=1to8:forq=1tolen(a$(g))+1:poke211,q:poke214,g+6:sys58732
  67. 231 print"[158]"mid$(a$(g),q,1):nextq:g=g+1:forq=len(a$(g))+1to1step-1:poke211,q
  68. 232 poke214,g+6:sys58732:print"[159]"mid$(a$(g),q,1):nextq,g:forg=1to8:reada$(g)
  69. 233 next:forg=1to8:a$(g)=" "+a$(g)+" ":forq=1to11:poke211,q:poke214,g+15
  70. 234 sys58732:print"[155]"a$(g):nextq,g:forg=1to1500:next:print"[147]"
  71. 300 a$(1)="  well,time to say the goodbye!  "
  72. 301 a$(2)="we've now reached the end of this"
  73. 302 a$(3)=" brandnew cool basic-demo! wanna "
  74. 303 a$(4)="  get in touch with high-tech ?  "
  75. 304 a$(5)="  zeitgeist/h-t : hiram kuemper  "
  76. 305 a$(6)="                  waldring 145   "
  77. 306 a$(7)="                  44789 bochum   "
  78. 307 a$(8)="                  germany        "
  79. 308 forg=1to8:forq=1to8:poke211,2:poke214,g*2+1:poke646,f(q):sys58732
  80. 309 printa$(g):nextq,g:forg=1to5000:next:sys64738
  81. 1000 rem subroutines
  82. 1001 poke211,9:poke214,6:sys58732:print""l$(1):printtab(9)l$(2)
  83. 1002 printtab(9)l$(3):printtab(9)l$(4):return
  84. 1100 forq=1to8:poke646,f(q):poke211,17:poke214,15:sys58732:print"hai":nextq
  85. 1101 return
  86.